home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 16
/
Aminet 16 (1996)(GTI - Schatztruhe)[!][Dec 1996].iso
/
Aminet
/
comm
/
term
/
term_source.lha
/
Extras
/
Source
/
term-source.lha
/
SerialPanel.c
< prev
next >
Wrap
C/C++ Source or Header
|
1996-10-20
|
17KB
|
707 lines
/*
** SerialPanel.c
**
** Editing panel for serial configuration
**
** Copyright © 1990-1996 by Olaf `Olsen' Barthel
** All Rights Reserved
**
** :ts=4
*/
#ifndef _GLOBAL_H
#include "Global.h"
#endif
enum { GAD_BAUD=1000,GAD_DATABITS,GAD_PARITY,GAD_STOPBITS,GAD_HANDSHAKING,GAD_DUPLEX,GAD_BUFFERSIZE,GAD_BREAKLENGTH,
GAD_STRIP,GAD_HIGHSPEED,GAD_CHECK_CARRIER,GAD_SHARED,GAD_XON_XOFF,GAD_PASSTHROUGH,
GAD_DEVICE,GAD_SELECT,GAD_UNIT,GAD_QUANTUM,GAD_SATISFY_ODU,GAD_USE_OWNDEVUNIT,GAD_RELEASE_WHEN_ONLINE,
GAD_RELEASE_WHEN_DIALING,GAD_NO_ODU_IF_SHARED,GAD_USE,GAD_CANCEL,
GAD_PAGER,GAD_PAGEGROUP,GAD_DIRECT_CONNECTION
};
STATIC LONG Sizes[] =
{
16,32,64,128,256,512,1024,2048,4096,8192,16384,32768,65536,131072,262144,524288
};
STATIC LONG SAVE_DS STACKARGS
ShowSerialSize(struct Gadget *UnusedGadget,LONG Level)
{
return(Sizes[Level]);
}
STATIC LONG SAVE_DS ASM
RateHookFunc(REG(a0) struct Hook *UnusedHook,REG(a2) LONG Current,REG(a1) LONG Command)
{
LONG Index;
if(Current < BaudRates[0])
Current = BaudRates[Index = 0];
else
{
if(Current > BaudRates[NumBaudRates - 1])
Current = BaudRates[Index = NumBaudRates - 1];
else
{
LONG i;
Index = -1;
for(i = 0 ; i < NumBaudRates ; i++)
{
if(Current == BaudRates[i])
{
switch(Command)
{
case INCREMENTERMSG_Decrement:
if(i > 0)
return(BaudRates[i - 1]);
else
return(Current);
case INCREMENTERMSG_Increment:
if(i < NumBaudRates - 1)
return(BaudRates[i + 1]);
else
return(Current);
default:
return(Current);
}
}
}
if(Index == -1)
{
if(Command == INCREMENTERMSG_Decrement)
{
for(i = 0 ; i < NumBaudRates ; i++)
{
if(BaudRates[i] <= Current)
Index = i;
}
if(BaudRates[Index] < Current || !Index)
return(BaudRates[Index]);
else
return(BaudRates[Index - 1]);
}
else
{
for(i = NumBaudRates - 1 ; i >= 0 ; i--)
{
if(BaudRates[i] >= Current)
Index = i;
}
if(Command == INCREMENTERMSG_Initial)
{
if(Index == -1)
return(Current);
else
return(BaudRates[Index]);
}
else
{
if(BaudRates[Index] > Current || Index == NumBaudRates - 1)
return(BaudRates[Index]);
else
return(BaudRates[Index + 1]);
}
}
}
}
}
if(Index == -1 || (Command != INCREMENTERMSG_Decrement && Command != INCREMENTERMSG_Increment))
return(Current);
else
{
if(Command == INCREMENTERMSG_Decrement)
{
if(Index > 0)
return(BaudRates[Index - 1]);
else
return(BaudRates[Index]);
}
else
{
if(Index < NumBaudRates - 1)
return(BaudRates[Index + 1]);
else
return(BaudRates[Index]);
}
}
}
BOOL
SerialPanel(struct Window *Parent,struct Configuration *LocalConfig)
{
STATIC struct Hook IncrementerHook;
STATIC LONG PageTitleID[5] =
{
MSG_V36_0171,
MSG_V36_0179,
MSG_V36_0176,
MSG_ODU_SUPPORT_TXT,
-1
};
STATIC BYTE InitialPage = 0;
LayoutHandle *Handle;
STRPTR PageLabels[5];
BOOL UseIt;
UseIt = FALSE;
InitHook(&IncrementerHook,(HOOKFUNC)RateHookFunc,NULL);
memset(PageLabels,0,sizeof(PageLabels));
LocalizeStringTable(PageLabels,PageTitleID);
if(!OwnDevUnitBase)
{
PageLabels[3] = NULL;
if(InitialPage >= 3)
InitialPage = 2;
}
SaveConfig(LocalConfig,PrivateConfig);
if(Handle = LT_CreateHandleTags(Parent->WScreen,
LAHN_LocaleHook, &LocaleHook,
LAHN_ExitFlush, FALSE,
TAG_DONE))
{
struct Window *PanelWindow;
LONG Size,Quantum,i;
for(i = 4 ; i < NUM_ELEMENTS(Sizes) ; i++)
{
if(Sizes[i] <= PrivateConfig->SerialConfig->SerialBufferSize)
Size = i;
}
for(i = 0 ; i < NUM_ELEMENTS(Sizes) ; i++)
{
if(Sizes[i] <= PrivateConfig->SerialConfig->Quantum)
Quantum = i;
}
if(PrivateConfig->SerialConfig->HighSpeed)
{
PrivateConfig->SerialConfig->BitsPerChar = 8;
PrivateConfig->SerialConfig->StopBits = 1;
PrivateConfig->SerialConfig->Parity = PARITY_NONE;
}
LT_New(Handle,
LA_Type,VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type,VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, TAB_KIND,
LA_ID, GAD_PAGER,
LA_LabelID, MSG_XFER_PAGE_TXT,
GTCY_Labels, PageLabels,
LACY_AutoPageID,GAD_PAGEGROUP,
LACY_TabKey, TRUE,
LA_BYTE, &InitialPage,
LATB_FullWidth, TRUE,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type, VERTICAL_KIND,
LA_ID, GAD_PAGEGROUP,
LAGR_ActivePage,InitialPage,
TAG_DONE);
{
LT_New(Handle,
LA_Type,VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, INTEGER_KIND,
LA_LabelID, MSG_SERIALPANEL_BAUD_RATE_GAD,
LA_LONG, &PrivateConfig->SerialConfig->BaudRate,
LA_ID, GAD_BAUD,
GTIN_MaxChars, 8,
LAIN_Min, 0,
LAIN_UseIncrementers, TRUE,
LAIN_IncrementerHook, &IncrementerHook,
TAG_DONE);
LT_New(Handle,
LA_Type, SliderType,
LA_ID, GAD_DATABITS,
LA_LabelID, MSG_SERIALPANEL_BITS_PER_CHAR_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->BitsPerChar,
GA_Disabled, PrivateConfig->SerialConfig->HighSpeed,
GTSL_Min, 7,
GTSL_Max, 8,
TAG_DONE);
LT_New(Handle,
LA_Type, CYCLE_KIND,
LA_ID, GAD_PARITY,
LA_LabelID, MSG_SERIALPANEL_PARITY_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->Parity,
GA_Disabled, PrivateConfig->SerialConfig->HighSpeed,
LACY_FirstLabel, MSG_SERIALPANEL_NO_PARITY_TXT,
LACY_LastLabel, MSG_SERIALPANEL_SPACE_TXT,
TAG_DONE);
LT_New(Handle,
LA_Type, SliderType,
LA_ID, GAD_STOPBITS,
LA_LabelID, MSG_SERIALPANEL_STOP_BITS_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->StopBits,
GA_Disabled, PrivateConfig->SerialConfig->HighSpeed,
GTSL_Min, 1,
GTSL_Max, 2,
TAG_DONE);
LT_New(Handle,
LA_Type, CYCLE_KIND,
LA_LabelID, MSG_SERIALPANEL_HANDSHAKING_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->HandshakingProtocol,
LACY_FirstLabel, MSG_SERIALPANEL_HANDSHAKING_NONE_TXT,
LACY_LastLabel, MSG_SERIALPANEL_HANDSHAKING_RTS_CTS_DSR_TXT,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_SERIALPANEL_LOCAL_ECHO_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->Duplex,
TAG_DONE);
LT_New(Handle,
LA_Type, SliderType,
LA_LabelID, MSG_SERIALPANEL_BUFFER_SIZE_GAD,
LA_LONG, &Size,
GTSL_Min, 4,
GTSL_Max, NUM_ELEMENTS(Sizes) - 1,
GTSL_DispFunc, ShowSerialSize,
GTSL_LevelFormat, LocaleBase ? "%7lD" : "%7ld",
TAG_DONE);
LT_New(Handle,
LA_Type, INTEGER_KIND,
LA_LabelID, MSG_SERIALPANEL_BREAK_LENGTH_GAD,
LA_LONG, &PrivateConfig->SerialConfig->BreakLength,
GTIN_MaxChars, 8,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_SERIALPANEL_HIGH_SPEED_MODE_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->HighSpeed,
LA_ID, GAD_HIGHSPEED,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type,VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, STRING_KIND,
LA_LabelID, MSG_SERIALPANEL_SERIAL_DEVICE_GAD,
LA_Chars, 20,
LA_STRPTR, PrivateConfig->SerialConfig->SerialDevice,
GTST_MaxChars, sizeof(PrivateConfig->SerialConfig->SerialDevice) - 1,
LAST_Picker, TRUE,
LA_ID, GAD_DEVICE,
TAG_DONE);
LT_New(Handle,
LA_Type, INTEGER_KIND,
LA_LabelID, MSG_SERIALPANEL_DEVICE_UNIT_NUMBER_GAD,
LA_LONG, &PrivateConfig->SerialConfig->UnitNumber,
LA_ID, GAD_UNIT,
LAIN_UseIncrementers, TRUE,
GTIN_MaxChars, 8,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type,VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_SERIALPANEL_STRIP_BIT_8_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->StripBit8,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_SERIALPANEL_SHARED_ACCESS_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->Shared,
LA_ID, GAD_SHARED,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_SERIALPANEL_XON_XOFF_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->xONxOFF,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_SERIALPANEL_PASS_XON_XOFF_THROUGH_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->PassThrough,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_SERIALPANEL_CHECK_CARRIER_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->CheckCarrier,
GA_Disabled, PrivateConfig->SerialConfig->DirectConnection,
LA_ID, GAD_CHECK_CARRIER,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_DIRECT_CONNECTION_GAD,
LA_BYTE, &PrivateConfig->SerialConfig->DirectConnection,
LA_ID, GAD_DIRECT_CONNECTION,
TAG_DONE);
LT_New(Handle,
LA_Type, SliderType,
LA_LabelID, MSG_SERIALPANEL_QUANTUM_GAD,
LA_LONG, &Quantum,
LA_Chars, 6,
GTSL_Min, 0,
GTSL_Max, NUM_ELEMENTS(Sizes) - 1,
GTSL_Level, Quantum,
GTSL_DispFunc, ShowSerialSize,
GTSL_LevelFormat, LocaleBase ? "%7lD" : "%7ld",
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type,VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type,VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_SERIALPANEL_USE_OWNDEVUNIT_TXT,
LA_BYTE, &PrivateConfig->SerialConfig->UseOwnDevUnit,
LA_ID, GAD_USE_OWNDEVUNIT,
LA_LabelPlace, PLACE_Right,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_DO_NOT_USE_IF_DEVICE_IS_IN_SHARED_MODE_TXT,
LA_BYTE, &PrivateConfig->SerialConfig->NoODUIfShared,
LA_ID, GAD_NO_ODU_IF_SHARED,
GA_Disabled, !PrivateConfig->SerialConfig->UseOwnDevUnit,
LA_LabelPlace, PLACE_Right,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_RELEASE_DEVICE_WHEN_ONLINE_TXT,
LA_BYTE, &PrivateConfig->SerialConfig->ReleaseODUWhenOnline,
LA_ID, GAD_RELEASE_WHEN_ONLINE,
GA_Disabled, !PrivateConfig->SerialConfig->UseOwnDevUnit,
LA_ExtraSpace, TRUE,
LA_LabelPlace, PLACE_Right,
TAG_DONE);
LT_New(Handle,
LA_Type, CHECKBOX_KIND,
LA_LabelID, MSG_RELEASE_DEVICE_WHEN_DIALING_TXT,
LA_BYTE, &PrivateConfig->SerialConfig->ReleaseODUWhenDialing,
LA_ID, GAD_RELEASE_WHEN_DIALING,
GA_Disabled, !PrivateConfig->SerialConfig->UseOwnDevUnit,
LA_LabelPlace, PLACE_Right,
TAG_DONE);
LT_New(Handle,
LA_Type, MX_KIND,
LA_LabelID, MSG_SATISFY_ODU_TXT,
LA_BYTE, &PrivateConfig->SerialConfig->SatisfyODURequests,
LA_ID, GAD_SATISFY_ODU,
LACY_FirstLabel, MSG_SATISFY_ODU_MODE1_TXT,
LACY_LastLabel, MSG_SATISFY_ODU_MODE3_TXT,
GA_Disabled, !PrivateConfig->SerialConfig->UseOwnDevUnit,
LA_ExtraSpace, TRUE,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_EndGroup(Handle);
}
LT_EndGroup(Handle);
}
LT_New(Handle,
LA_Type,VERTICAL_KIND,
TAG_DONE);
{
LT_New(Handle,
LA_Type, XBAR_KIND,
LAXB_FullSize, TRUE,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_New(Handle,LA_Type,HORIZONTAL_KIND,
LAGR_SameSize, TRUE,
LAGR_Spread, TRUE,
TAG_DONE);
{
LT_New(Handle,
LA_Type, BUTTON_KIND,
LA_LabelID, MSG_GLOBAL_USE_GAD,
LA_ID, GAD_USE,
LABT_ReturnKey, TRUE,
LABT_ExtraFat, TRUE,
TAG_DONE);
LT_New(Handle,
LA_Type, BUTTON_KIND,
LA_LabelID, MSG_GLOBAL_CANCEL_GAD,
LA_ID, GAD_CANCEL,
LABT_EscKey, TRUE,
LABT_ExtraFat, TRUE,
TAG_DONE);
LT_EndGroup(Handle);
}
LT_EndGroup(Handle);
}
if(PanelWindow = LT_Build(Handle,
LAWN_TitleID, MSG_SERIALPANEL_SERIAL_PREFERENCES_TXT,
LAWN_HelpHook, &GuideHook,
LAWN_Parent, Parent,
WA_DepthGadget, TRUE,
WA_DragBar, TRUE,
WA_RMBTrap, TRUE,
WA_Activate, TRUE,
WA_SimpleRefresh, TRUE,
TAG_DONE))
{
struct IntuiMessage *Message;
struct Gadget *MsgGadget;
ULONG MsgClass;
UWORD MsgCode;
BOOL Done;
GuideContext(CONTEXT_SERIAL);
PushWindow(PanelWindow);
LT_ShowWindow(Handle,TRUE);
Done = FALSE;
do
{
if(Wait(PORTMASK(PanelWindow->UserPort) | SIG_BREAK) & SIG_BREAK)
break;
while(Message = (struct IntuiMessage *)LT_GetIMsg(Handle))
{
MsgClass = Message->Class;
MsgCode = Message->Code;
MsgGadget = (struct Gadget *)Message->IAddress;
LT_ReplyIMsg(Message);
if(MsgClass == IDCMP_GADGETUP)
{
switch(MsgGadget->GadgetID)
{
case GAD_USE_OWNDEVUNIT:
LT_SetAttributes(Handle,GAD_SATISFY_ODU,
GA_Disabled,!PrivateConfig->SerialConfig->UseOwnDevUnit,
TAG_DONE);
LT_SetAttributes(Handle,GAD_RELEASE_WHEN_ONLINE,
GA_Disabled,!PrivateConfig->SerialConfig->UseOwnDevUnit,
TAG_DONE);
LT_SetAttributes(Handle,GAD_RELEASE_WHEN_DIALING,
GA_Disabled,!PrivateConfig->SerialConfig->UseOwnDevUnit,
TAG_DONE);
LT_SetAttributes(Handle,GAD_NO_ODU_IF_SHARED,
GA_Disabled,!PrivateConfig->SerialConfig->UseOwnDevUnit,
TAG_DONE);
break;
case GAD_HIGHSPEED:
if(MsgCode)
{
LT_SetAttributes(Handle,GAD_PARITY,
GA_Disabled, TRUE,
GTCY_Active, PARITY_NONE,
TAG_DONE);
LT_SetAttributes(Handle,GAD_STOPBITS,
GA_Disabled, TRUE,
GTCY_Active, 0,
TAG_DONE);
LT_SetAttributes(Handle,GAD_DATABITS,
GA_Disabled, TRUE,
GTCY_Active, 1,
TAG_DONE);
}
else
{
LT_SetAttributes(Handle,GAD_PARITY,
GA_Disabled, FALSE,
TAG_DONE);
LT_SetAttributes(Handle,GAD_STOPBITS,
GA_Disabled, FALSE,
TAG_DONE);
LT_SetAttributes(Handle,GAD_DATABITS,
GA_Disabled, FALSE,
TAG_DONE);
}
break;
case GAD_DIRECT_CONNECTION:
LT_SetAttributes(Handle,GAD_CHECK_CARRIER,
GA_Disabled, MsgCode,
TAG_DONE);
break;
case GAD_USE:
LT_UpdateStrings(Handle);
PrivateConfig->SerialConfig->SerialBufferSize = Sizes[Size];
PrivateConfig->SerialConfig->Quantum = Sizes[Quantum];
UseIt = Done = TRUE;
break;
case GAD_CANCEL:
Done = TRUE;
break;
case GAD_DEVICE:
FindLibDev(PanelWindow,LT_GetString(Handle,MsgGadget->GadgetID),NT_DEVICE,NULL);
break;
}
}
if(MsgClass == IDCMP_IDCMPUPDATE && MsgGadget->GadgetID == GAD_DEVICE)
{
UBYTE LocalBuffer[MAX_FILENAME_LENGTH],DummyBuffer[MAX_FILENAME_LENGTH];
LT_LockWindow(PanelWindow);
strcpy(DummyBuffer,LT_GetString(Handle,GAD_DEVICE));
strcpy(LocalBuffer,DummyBuffer);
if(PickFile(PanelWindow,"Devs:","#?.device",LocaleString(MSG_SERIALPANEL_SELECT_DEVICE_TXT),LocalBuffer,NT_DEVICE))
{
if(Stricmp(DummyBuffer,LocalBuffer))
{
LT_SetAttributes(Handle,GAD_DEVICE,GTST_String,LocalBuffer,TAG_DONE);
FindLibDev(PanelWindow,LocalBuffer,NT_DEVICE,NULL);
}
}
LT_UnlockWindow(PanelWindow);
LT_ShowWindow(Handle,TRUE);
}
}
}
while(!Done);
PopWindow();
}
LT_DeleteHandle(Handle);
}
if(UseIt)
{
if(Config->MiscConfig->ProtectiveMode)
{
if(PrivateConfig->SerialConfig->BaudRate >= 4800 && PrivateConfig->SerialConfig->HandshakingProtocol == HANDSHAKING_NONE && !PrivateConfig->SerialConfig->DirectConnection)
{
if(ShowRequest(Window,LocaleString(MSG_NO_RTSCTS_TXT),LocaleString(MSG_GLOBAL_YES_NO_TXT),PrivateConfig->SerialConfig->BaudRate))
PrivateConfig->SerialConfig->HandshakingProtocol = HANDSHAKING_RTSCTS_DSR;
}
}
/* Is the device driver closed up and is the main
* program making the call?
*/
if(LocalConfig == Config && !ReadRequest)
{
/* Is the serial configuration any different?
* If not, zap the serial device name in the
* alternate buffer to force the driver to
* get reopened.
*/
if(!CompareConfigEntries(Config->SerialConfig,PrivateConfig->SerialConfig,PREF_SERIAL))
Config->SerialConfig->SerialDevice[0] = 0;
}
}
/* The edited settings are now in PrivateConfig */
if(UseIt)
SwapConfig(LocalConfig,PrivateConfig);
else
SaveConfig(LocalConfig,PrivateConfig);
return(UseIt);
}